home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / sysutils.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  69.2 KB  |  1,387 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'SysUtils.pas' rev: 3.00
  6.  
  7. #ifndef SysUtilsHPP
  8. #define SysUtilsHPP
  9. #include <SysConst.hpp>
  10. #include <Windows.hpp>
  11. #include <SysInit.hpp>
  12. #include <System.hpp>
  13.  
  14. //-- user supplied -----------------------------------------------------------
  15.  
  16. namespace Sysutils
  17. {
  18. //-- type declarations -------------------------------------------------------
  19. typedef Set<char, 0, 255>  TSysCharSet;
  20.  
  21. #pragma pack(push, 1)
  22. struct WordRec
  23. {
  24.     Byte Lo;
  25.     Byte Hi;
  26. } ;
  27. #pragma pack(pop)
  28.  
  29. #pragma pack(push, 1)
  30. struct LongRec
  31. {
  32.     Word Lo;
  33.     Word Hi;
  34. } ;
  35. #pragma pack(pop)
  36.  
  37. struct TMethod
  38. {
  39.     void *Code;
  40.     void *Data;
  41. } ;
  42.  
  43. typedef Byte TByteArray[32768];
  44.  
  45. typedef TByteArray *PByteArray;
  46.  
  47. typedef Word TWordArray[16384];
  48.  
  49. typedef TWordArray *PWordArray;
  50.  
  51. typedef void __fastcall (*TProcedure)(void);
  52.  
  53. typedef System::AnsiString TFileName;
  54.  
  55. struct TSearchRec
  56. {
  57.     int Time;
  58.     int Size;
  59.     int Attr;
  60.     System::AnsiString Name;
  61.     int ExcludeAttr;
  62.     int FindHandle;
  63.     _WIN32_FIND_DATAA FindData;
  64. } ;
  65.  
  66. struct TFileRec
  67. {
  68.     int Handle;
  69.     int Mode;
  70.     Cardinal RecSize;
  71.     Byte Private[28];
  72.     Byte UserData[32];
  73.     char Name[260];
  74. } ;
  75.  
  76. typedef char TTextBuf[128];
  77.  
  78. typedef TTextBuf *PTextBuf;
  79.  
  80. struct TTextRec
  81. {
  82.     int Handle;
  83.     int Mode;
  84.     Cardinal BufSize;
  85.     Cardinal BufPos;
  86.     Cardinal BufEnd;
  87.     char *BufPtr;
  88.     void *OpenFunc;
  89.     void *InOutFunc;
  90.     void *FlushFunc;
  91.     void *CloseFunc;
  92.     Byte UserData[32];
  93.     char Name[260];
  94.     char Buffer[128];
  95. } ;
  96.  
  97. enum TFloatValue { fvExtended, fvCurrency };
  98.  
  99. enum TFloatFormat { ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency };
  100.  
  101. #pragma pack(push, 1)
  102. struct TFloatRec
  103. {
  104.     short Exponent;
  105.     bool Negative;
  106.     char Digits[21];
  107. } ;
  108. #pragma pack(pop)
  109.  
  110. struct TTimeStamp
  111. {
  112.     int Time;
  113.     int Date;
  114. } ;
  115.  
  116. enum TMbcsByteType { mbSingleByte, mbLeadByte, mbTrailByte };
  117.  
  118. #pragma pack(push, 1)
  119. struct TSysLocale
  120. {
  121.     int DefaultLCID;
  122.     Word PriLangID;
  123.     Word SubLangID;
  124.     bool FarEast;
  125. } ;
  126. #pragma pack(pop)
  127.  
  128. class DELPHICLASS Exception;
  129. class PASCALIMPLEMENTATION Exception : public System::TObject 
  130. {
  131.     typedef System::TObject inherited;
  132.     
  133. private:
  134.     System::AnsiString FMessage;
  135.     int FHelpContext;
  136.     
  137. public:
  138.     __fastcall Exception(const System::AnsiString Msg);
  139.     __fastcall Exception(const System::AnsiString Msg, const System::TVarRec * Args, const int Args_Size
  140.         );
  141.     __fastcall Exception(int Ident, Extended Dummy);
  142.     __fastcall Exception(int Ident, const System::TVarRec * Args, const int Args_Size);
  143.     __fastcall Exception(const System::AnsiString Msg, int AHelpContext);
  144.     __fastcall Exception(const System::AnsiString Msg, const System::TVarRec * Args, const int Args_Size
  145.         , int AHelpContext);
  146.     __fastcall Exception(int Ident, int AHelpContext);
  147.     __fastcall Exception(int Ident, const System::TVarRec * Args, const int Args_Size, int AHelpContext
  148.         );
  149.     __property int HelpContext = {read=FHelpContext, write=FHelpContext, nodefault};
  150.     __property System::AnsiString Message = {read=FMessage, write=FMessage};
  151. public:
  152.     /* TObject.Destroy */ __fastcall virtual ~Exception(void) { }
  153.     
  154. };
  155.  
  156. typedef System::TMetaClass*ExceptClass;
  157.  
  158. class DELPHICLASS EAbort;
  159. class PASCALIMPLEMENTATION EAbort : public Sysutils::Exception 
  160. {
  161.     typedef Sysutils::Exception inherited;
  162.     
  163. public:
  164.     /* Exception.Create */ __fastcall EAbort(const System::AnsiString Msg) : Sysutils::Exception(Msg) { }
  165.         
  166.     /* Exception.CreateFmt */ __fastcall EAbort(const System::AnsiString Msg, const System::TVarRec * Args
  167.         , const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  168.     /* Exception.CreateRes */ __fastcall EAbort(int Ident, Extended Dummy) : Sysutils::Exception(Ident, 
  169.         Dummy) { }
  170.     /* Exception.CreateResFmt */ __fastcall EAbort(int Ident, const System::TVarRec * Args, const int Args_Size
  171.         ) : Sysutils::Exception(Ident, Args, Args_Size) { }
  172.     /* Exception.CreateHelp */ __fastcall EAbort(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  173.         Exception(Msg, AHelpContext) { }
  174.     /* Exception.CreateFmtHelp */ __fastcall EAbort(const System::AnsiString Msg, const System::TVarRec 
  175.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  176.         ) { }
  177.     /* Exception.CreateResHelp */ __fastcall EAbort(int Ident, int AHelpContext) : Sysutils::Exception(
  178.         Ident, AHelpContext) { }
  179.     /* Exception.CreateResFmtHelp */ __fastcall EAbort(int Ident, const System::TVarRec * Args, const int 
  180.         Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  181.     
  182. public:
  183.     /* TObject.Destroy */ __fastcall virtual ~EAbort(void) { }
  184.     
  185. };
  186.  
  187. class DELPHICLASS EOutOfMemory;
  188. class PASCALIMPLEMENTATION EOutOfMemory : public Sysutils::Exception 
  189. {
  190.     typedef Sysutils::Exception inherited;
  191.     
  192. private:
  193.     bool AllowFree;
  194.     
  195. public:
  196.     __fastcall virtual ~EOutOfMemory(void);
  197.     virtual void __fastcall FreeInstance(void);
  198. public:
  199.     /* Exception.Create */ __fastcall EOutOfMemory(const System::AnsiString Msg) : Sysutils::Exception(
  200.         Msg) { }
  201.     /* Exception.CreateFmt */ __fastcall EOutOfMemory(const System::AnsiString Msg, const System::TVarRec 
  202.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  203.     /* Exception.CreateRes */ __fastcall EOutOfMemory(int Ident, Extended Dummy) : Sysutils::Exception(
  204.         Ident, Dummy) { }
  205.     /* Exception.CreateResFmt */ __fastcall EOutOfMemory(int Ident, const System::TVarRec * Args, const 
  206.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  207.     /* Exception.CreateHelp */ __fastcall EOutOfMemory(const System::AnsiString Msg, int AHelpContext) : 
  208.         Sysutils::Exception(Msg, AHelpContext) { }
  209.     /* Exception.CreateFmtHelp */ __fastcall EOutOfMemory(const System::AnsiString Msg, const System::TVarRec 
  210.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  211.         ) { }
  212.     /* Exception.CreateResHelp */ __fastcall EOutOfMemory(int Ident, int AHelpContext) : Sysutils::Exception(
  213.         Ident, AHelpContext) { }
  214.     /* Exception.CreateResFmtHelp */ __fastcall EOutOfMemory(int Ident, const System::TVarRec * Args, const 
  215.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  216.     
  217. };
  218.  
  219. class DELPHICLASS EInOutError;
  220. class PASCALIMPLEMENTATION EInOutError : public Sysutils::Exception 
  221. {
  222.     typedef Sysutils::Exception inherited;
  223.     
  224. public:
  225.     int ErrorCode;
  226. public:
  227.     /* Exception.Create */ __fastcall EInOutError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  228.         ) { }
  229.     /* Exception.CreateFmt */ __fastcall EInOutError(const System::AnsiString Msg, const System::TVarRec 
  230.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  231.     /* Exception.CreateRes */ __fastcall EInOutError(int Ident, Extended Dummy) : Sysutils::Exception(Ident
  232.         , Dummy) { }
  233.     /* Exception.CreateResFmt */ __fastcall EInOutError(int Ident, const System::TVarRec * Args, const 
  234.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  235.     /* Exception.CreateHelp */ __fastcall EInOutError(const System::AnsiString Msg, int AHelpContext) : 
  236.         Sysutils::Exception(Msg, AHelpContext) { }
  237.     /* Exception.CreateFmtHelp */ __fastcall EInOutError(const System::AnsiString Msg, const System::TVarRec 
  238.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  239.         ) { }
  240.     /* Exception.CreateResHelp */ __fastcall EInOutError(int Ident, int AHelpContext) : Sysutils::Exception(
  241.         Ident, AHelpContext) { }
  242.     /* Exception.CreateResFmtHelp */ __fastcall EInOutError(int Ident, const System::TVarRec * Args, const 
  243.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  244.     
  245. public:
  246.     /* TObject.Destroy */ __fastcall virtual ~EInOutError(void) { }
  247.     
  248. };
  249.  
  250. class DELPHICLASS EExternal;
  251. class PASCALIMPLEMENTATION EExternal : public Sysutils::Exception 
  252. {
  253.     typedef Sysutils::Exception inherited;
  254.     
  255. public:
  256.     _EXCEPTION_RECORD *ExceptionRecord;
  257. public:
  258.     /* Exception.Create */ __fastcall EExternal(const System::AnsiString Msg) : Sysutils::Exception(Msg
  259.         ) { }
  260.     /* Exception.CreateFmt */ __fastcall EExternal(const System::AnsiString Msg, const System::TVarRec 
  261.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  262.     /* Exception.CreateRes */ __fastcall EExternal(int Ident, Extended Dummy) : Sysutils::Exception(Ident
  263.         , Dummy) { }
  264.     /* Exception.CreateResFmt */ __fastcall EExternal(int Ident, const System::TVarRec * Args, const int 
  265.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  266.     /* Exception.CreateHelp */ __fastcall EExternal(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  267.         Exception(Msg, AHelpContext) { }
  268.     /* Exception.CreateFmtHelp */ __fastcall EExternal(const System::AnsiString Msg, const System::TVarRec 
  269.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  270.         ) { }
  271.     /* Exception.CreateResHelp */ __fastcall EExternal(int Ident, int AHelpContext) : Sysutils::Exception(
  272.         Ident, AHelpContext) { }
  273.     /* Exception.CreateResFmtHelp */ __fastcall EExternal(int Ident, const System::TVarRec * Args, const 
  274.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  275.     
  276. public:
  277.     /* TObject.Destroy */ __fastcall virtual ~EExternal(void) { }
  278.     
  279. };
  280.  
  281. class DELPHICLASS EExternalException;
  282. class PASCALIMPLEMENTATION EExternalException : public Sysutils::EExternal 
  283. {
  284.     typedef Sysutils::EExternal inherited;
  285.     
  286. public:
  287.     /* Exception.Create */ __fastcall EExternalException(const System::AnsiString Msg) : Sysutils::EExternal(
  288.         Msg) { }
  289.     /* Exception.CreateFmt */ __fastcall EExternalException(const System::AnsiString Msg, const System::TVarRec 
  290.         * Args, const int Args_Size) : Sysutils::EExternal(Msg, Args, Args_Size) { }
  291.     /* Exception.CreateRes */ __fastcall EExternalException(int Ident, Extended Dummy) : Sysutils::EExternal(
  292.         Ident, Dummy) { }
  293.     /* Exception.CreateResFmt */ __fastcall EExternalException(int Ident, const System::TVarRec * Args, 
  294.         const int Args_Size) : Sysutils::EExternal(Ident, Args, Args_Size) { }
  295.     /* Exception.CreateHelp */ __fastcall EExternalException(const System::AnsiString Msg, int AHelpContext
  296.         ) : Sysutils::EExternal(Msg, AHelpContext) { }
  297.     /* Exception.CreateFmtHelp */ __fastcall EExternalException(const System::AnsiString Msg, const System::TVarRec 
  298.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EExternal(Msg, Args, Args_Size, AHelpContext
  299.         ) { }
  300.     /* Exception.CreateResHelp */ __fastcall EExternalException(int Ident, int AHelpContext) : Sysutils::
  301.         EExternal(Ident, AHelpContext) { }
  302.     /* Exception.CreateResFmtHelp */ __fastcall EExternalException(int Ident, const System::TVarRec * Args
  303.         , const int Args_Size, int AHelpContext) : Sysutils::EExternal(Ident, Args, Args_Size, AHelpContext
  304.         ) { }
  305.     
  306. public:
  307.     /* TObject.Destroy */ __fastcall virtual ~EExternalException(void) { }
  308.     
  309. };
  310.  
  311. class DELPHICLASS EIntError;
  312. class PASCALIMPLEMENTATION EIntError : public Sysutils::EExternal 
  313. {
  314.     typedef Sysutils::EExternal inherited;
  315.     
  316. public:
  317.     /* Exception.Create */ __fastcall EIntError(const System::AnsiString Msg) : Sysutils::EExternal(Msg
  318.         ) { }
  319.     /* Exception.CreateFmt */ __fastcall EIntError(const System::AnsiString Msg, const System::TVarRec 
  320.         * Args, const int Args_Size) : Sysutils::EExternal(Msg, Args, Args_Size) { }
  321.     /* Exception.CreateRes */ __fastcall EIntError(int Ident, Extended Dummy) : Sysutils::EExternal(Ident
  322.         , Dummy) { }
  323.     /* Exception.CreateResFmt */ __fastcall EIntError(int Ident, const System::TVarRec * Args, const int 
  324.         Args_Size) : Sysutils::EExternal(Ident, Args, Args_Size) { }
  325.     /* Exception.CreateHelp */ __fastcall EIntError(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  326.         EExternal(Msg, AHelpContext) { }
  327.     /* Exception.CreateFmtHelp */ __fastcall EIntError(const System::AnsiString Msg, const System::TVarRec 
  328.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EExternal(Msg, Args, Args_Size, AHelpContext
  329.         ) { }
  330.     /* Exception.CreateResHelp */ __fastcall EIntError(int Ident, int AHelpContext) : Sysutils::EExternal(
  331.         Ident, AHelpContext) { }
  332.     /* Exception.CreateResFmtHelp */ __fastcall EIntError(int Ident, const System::TVarRec * Args, const 
  333.         int Args_Size, int AHelpContext) : Sysutils::EExternal(Ident, Args, Args_Size, AHelpContext) { }
  334.     
  335. public:
  336.     /* TObject.Destroy */ __fastcall virtual ~EIntError(void) { }
  337.     
  338. };
  339.  
  340. class DELPHICLASS EDivByZero;
  341. class PASCALIMPLEMENTATION EDivByZero : public Sysutils::EIntError 
  342. {
  343.     typedef Sysutils::EIntError inherited;
  344.     
  345. public:
  346.     /* Exception.Create */ __fastcall EDivByZero(const System::AnsiString Msg) : Sysutils::EIntError(Msg
  347.         ) { }
  348.     /* Exception.CreateFmt */ __fastcall EDivByZero(const System::AnsiString Msg, const System::TVarRec 
  349.         * Args, const int Args_Size) : Sysutils::EIntError(Msg, Args, Args_Size) { }
  350.     /* Exception.CreateRes */ __fastcall EDivByZero(int Ident, Extended Dummy) : Sysutils::EIntError(Ident
  351.         , Dummy) { }
  352.     /* Exception.CreateResFmt */ __fastcall EDivByZero(int Ident, const System::TVarRec * Args, const int 
  353.         Args_Size) : Sysutils::EIntError(Ident, Args, Args_Size) { }
  354.     /* Exception.CreateHelp */ __fastcall EDivByZero(const System::AnsiString Msg, int AHelpContext) : 
  355.         Sysutils::EIntError(Msg, AHelpContext) { }
  356.     /* Exception.CreateFmtHelp */ __fastcall EDivByZero(const System::AnsiString Msg, const System::TVarRec 
  357.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EIntError(Msg, Args, Args_Size, AHelpContext
  358.         ) { }
  359.     /* Exception.CreateResHelp */ __fastcall EDivByZero(int Ident, int AHelpContext) : Sysutils::EIntError(
  360.         Ident, AHelpContext) { }
  361.     /* Exception.CreateResFmtHelp */ __fastcall EDivByZero(int Ident, const System::TVarRec * Args, const 
  362.         int Args_Size, int AHelpContext) : Sysutils::EIntError(Ident, Args, Args_Size, AHelpContext) { }
  363.     
  364. public:
  365.     /* TObject.Destroy */ __fastcall virtual ~EDivByZero(void) { }
  366.     
  367. };
  368.  
  369. class DELPHICLASS ERangeError;
  370. class PASCALIMPLEMENTATION ERangeError : public Sysutils::EIntError 
  371. {
  372.     typedef Sysutils::EIntError inherited;
  373.     
  374. public:
  375.     /* Exception.Create */ __fastcall ERangeError(const System::AnsiString Msg) : Sysutils::EIntError(Msg
  376.         ) { }
  377.     /* Exception.CreateFmt */ __fastcall ERangeError(const System::AnsiString Msg, const System::TVarRec 
  378.         * Args, const int Args_Size) : Sysutils::EIntError(Msg, Args, Args_Size) { }
  379.     /* Exception.CreateRes */ __fastcall ERangeError(int Ident, Extended Dummy) : Sysutils::EIntError(Ident
  380.         , Dummy) { }
  381.     /* Exception.CreateResFmt */ __fastcall ERangeError(int Ident, const System::TVarRec * Args, const 
  382.         int Args_Size) : Sysutils::EIntError(Ident, Args, Args_Size) { }
  383.     /* Exception.CreateHelp */ __fastcall ERangeError(const System::AnsiString Msg, int AHelpContext) : 
  384.         Sysutils::EIntError(Msg, AHelpContext) { }
  385.     /* Exception.CreateFmtHelp */ __fastcall ERangeError(const System::AnsiString Msg, const System::TVarRec 
  386.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EIntError(Msg, Args, Args_Size, AHelpContext
  387.         ) { }
  388.     /* Exception.CreateResHelp */ __fastcall ERangeError(int Ident, int AHelpContext) : Sysutils::EIntError(
  389.         Ident, AHelpContext) { }
  390.     /* Exception.CreateResFmtHelp */ __fastcall ERangeError(int Ident, const System::TVarRec * Args, const 
  391.         int Args_Size, int AHelpContext) : Sysutils::EIntError(Ident, Args, Args_Size, AHelpContext) { }
  392.     
  393. public:
  394.     /* TObject.Destroy */ __fastcall virtual ~ERangeError(void) { }
  395.     
  396. };
  397.  
  398. class DELPHICLASS EIntOverflow;
  399. class PASCALIMPLEMENTATION EIntOverflow : public Sysutils::EIntError 
  400. {
  401.     typedef Sysutils::EIntError inherited;
  402.     
  403. public:
  404.     /* Exception.Create */ __fastcall EIntOverflow(const System::AnsiString Msg) : Sysutils::EIntError(
  405.         Msg) { }
  406.     /* Exception.CreateFmt */ __fastcall EIntOverflow(const System::AnsiString Msg, const System::TVarRec 
  407.         * Args, const int Args_Size) : Sysutils::EIntError(Msg, Args, Args_Size) { }
  408.     /* Exception.CreateRes */ __fastcall EIntOverflow(int Ident, Extended Dummy) : Sysutils::EIntError(
  409.         Ident, Dummy) { }
  410.     /* Exception.CreateResFmt */ __fastcall EIntOverflow(int Ident, const System::TVarRec * Args, const 
  411.         int Args_Size) : Sysutils::EIntError(Ident, Args, Args_Size) { }
  412.     /* Exception.CreateHelp */ __fastcall EIntOverflow(const System::AnsiString Msg, int AHelpContext) : 
  413.         Sysutils::EIntError(Msg, AHelpContext) { }
  414.     /* Exception.CreateFmtHelp */ __fastcall EIntOverflow(const System::AnsiString Msg, const System::TVarRec 
  415.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EIntError(Msg, Args, Args_Size, AHelpContext
  416.         ) { }
  417.     /* Exception.CreateResHelp */ __fastcall EIntOverflow(int Ident, int AHelpContext) : Sysutils::EIntError(
  418.         Ident, AHelpContext) { }
  419.     /* Exception.CreateResFmtHelp */ __fastcall EIntOverflow(int Ident, const System::TVarRec * Args, const 
  420.         int Args_Size, int AHelpContext) : Sysutils::EIntError(Ident, Args, Args_Size, AHelpContext) { }
  421.     
  422. public:
  423.     /* TObject.Destroy */ __fastcall virtual ~EIntOverflow(void) { }
  424.     
  425. };
  426.  
  427. class DELPHICLASS EMathError;
  428. class PASCALIMPLEMENTATION EMathError : public Sysutils::EExternal 
  429. {
  430.     typedef Sysutils::EExternal inherited;
  431.     
  432. public:
  433.     /* Exception.Create */ __fastcall EMathError(const System::AnsiString Msg) : Sysutils::EExternal(Msg
  434.         ) { }
  435.     /* Exception.CreateFmt */ __fastcall EMathError(const System::AnsiString Msg, const System::TVarRec 
  436.         * Args, const int Args_Size) : Sysutils::EExternal(Msg, Args, Args_Size) { }
  437.     /* Exception.CreateRes */ __fastcall EMathError(int Ident, Extended Dummy) : Sysutils::EExternal(Ident
  438.         , Dummy) { }
  439.     /* Exception.CreateResFmt */ __fastcall EMathError(int Ident, const System::TVarRec * Args, const int 
  440.         Args_Size) : Sysutils::EExternal(Ident, Args, Args_Size) { }
  441.     /* Exception.CreateHelp */ __fastcall EMathError(const System::AnsiString Msg, int AHelpContext) : 
  442.         Sysutils::EExternal(Msg, AHelpContext) { }
  443.     /* Exception.CreateFmtHelp */ __fastcall EMathError(const System::AnsiString Msg, const System::TVarRec 
  444.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EExternal(Msg, Args, Args_Size, AHelpContext
  445.         ) { }
  446.     /* Exception.CreateResHelp */ __fastcall EMathError(int Ident, int AHelpContext) : Sysutils::EExternal(
  447.         Ident, AHelpContext) { }
  448.     /* Exception.CreateResFmtHelp */ __fastcall EMathError(int Ident, const System::TVarRec * Args, const 
  449.         int Args_Size, int AHelpContext) : Sysutils::EExternal(Ident, Args, Args_Size, AHelpContext) { }
  450.     
  451. public:
  452.     /* TObject.Destroy */ __fastcall virtual ~EMathError(void) { }
  453.     
  454. };
  455.  
  456. class DELPHICLASS EInvalidOp;
  457. class PASCALIMPLEMENTATION EInvalidOp : public Sysutils::EMathError 
  458. {
  459.     typedef Sysutils::EMathError inherited;
  460.     
  461. public:
  462.     /* Exception.Create */ __fastcall EInvalidOp(const System::AnsiString Msg) : Sysutils::EMathError(Msg
  463.         ) { }
  464.     /* Exception.CreateFmt */ __fastcall EInvalidOp(const System::AnsiString Msg, const System::TVarRec 
  465.         * Args, const int Args_Size) : Sysutils::EMathError(Msg, Args, Args_Size) { }
  466.     /* Exception.CreateRes */ __fastcall EInvalidOp(int Ident, Extended Dummy) : Sysutils::EMathError(Ident
  467.         , Dummy) { }
  468.     /* Exception.CreateResFmt */ __fastcall EInvalidOp(int Ident, const System::TVarRec * Args, const int 
  469.         Args_Size) : Sysutils::EMathError(Ident, Args, Args_Size) { }
  470.     /* Exception.CreateHelp */ __fastcall EInvalidOp(const System::AnsiString Msg, int AHelpContext) : 
  471.         Sysutils::EMathError(Msg, AHelpContext) { }
  472.     /* Exception.CreateFmtHelp */ __fastcall EInvalidOp(const System::AnsiString Msg, const System::TVarRec 
  473.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EMathError(Msg, Args, Args_Size, AHelpContext
  474.         ) { }
  475.     /* Exception.CreateResHelp */ __fastcall EInvalidOp(int Ident, int AHelpContext) : Sysutils::EMathError(
  476.         Ident, AHelpContext) { }
  477.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidOp(int Ident, const System::TVarRec * Args, const 
  478.         int Args_Size, int AHelpContext) : Sysutils::EMathError(Ident, Args, Args_Size, AHelpContext) { }
  479.     
  480. public:
  481.     /* TObject.Destroy */ __fastcall virtual ~EInvalidOp(void) { }
  482.     
  483. };
  484.  
  485. class DELPHICLASS EZeroDivide;
  486. class PASCALIMPLEMENTATION EZeroDivide : public Sysutils::EMathError 
  487. {
  488.     typedef Sysutils::EMathError inherited;
  489.     
  490. public:
  491.     /* Exception.Create */ __fastcall EZeroDivide(const System::AnsiString Msg) : Sysutils::EMathError(
  492.         Msg) { }
  493.     /* Exception.CreateFmt */ __fastcall EZeroDivide(const System::AnsiString Msg, const System::TVarRec 
  494.         * Args, const int Args_Size) : Sysutils::EMathError(Msg, Args, Args_Size) { }
  495.     /* Exception.CreateRes */ __fastcall EZeroDivide(int Ident, Extended Dummy) : Sysutils::EMathError(
  496.         Ident, Dummy) { }
  497.     /* Exception.CreateResFmt */ __fastcall EZeroDivide(int Ident, const System::TVarRec * Args, const 
  498.         int Args_Size) : Sysutils::EMathError(Ident, Args, Args_Size) { }
  499.     /* Exception.CreateHelp */ __fastcall EZeroDivide(const System::AnsiString Msg, int AHelpContext) : 
  500.         Sysutils::EMathError(Msg, AHelpContext) { }
  501.     /* Exception.CreateFmtHelp */ __fastcall EZeroDivide(const System::AnsiString Msg, const System::TVarRec 
  502.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EMathError(Msg, Args, Args_Size, AHelpContext
  503.         ) { }
  504.     /* Exception.CreateResHelp */ __fastcall EZeroDivide(int Ident, int AHelpContext) : Sysutils::EMathError(
  505.         Ident, AHelpContext) { }
  506.     /* Exception.CreateResFmtHelp */ __fastcall EZeroDivide(int Ident, const System::TVarRec * Args, const 
  507.         int Args_Size, int AHelpContext) : Sysutils::EMathError(Ident, Args, Args_Size, AHelpContext) { }
  508.     
  509. public:
  510.     /* TObject.Destroy */ __fastcall virtual ~EZeroDivide(void) { }
  511.     
  512. };
  513.  
  514. class DELPHICLASS EOverflow;
  515. class PASCALIMPLEMENTATION EOverflow : public Sysutils::EMathError 
  516. {
  517.     typedef Sysutils::EMathError inherited;
  518.     
  519. public:
  520.     /* Exception.Create */ __fastcall EOverflow(const System::AnsiString Msg) : Sysutils::EMathError(Msg
  521.         ) { }
  522.     /* Exception.CreateFmt */ __fastcall EOverflow(const System::AnsiString Msg, const System::TVarRec 
  523.         * Args, const int Args_Size) : Sysutils::EMathError(Msg, Args, Args_Size) { }
  524.     /* Exception.CreateRes */ __fastcall EOverflow(int Ident, Extended Dummy) : Sysutils::EMathError(Ident
  525.         , Dummy) { }
  526.     /* Exception.CreateResFmt */ __fastcall EOverflow(int Ident, const System::TVarRec * Args, const int 
  527.         Args_Size) : Sysutils::EMathError(Ident, Args, Args_Size) { }
  528.     /* Exception.CreateHelp */ __fastcall EOverflow(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  529.         EMathError(Msg, AHelpContext) { }
  530.     /* Exception.CreateFmtHelp */ __fastcall EOverflow(const System::AnsiString Msg, const System::TVarRec 
  531.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EMathError(Msg, Args, Args_Size, AHelpContext
  532.         ) { }
  533.     /* Exception.CreateResHelp */ __fastcall EOverflow(int Ident, int AHelpContext) : Sysutils::EMathError(
  534.         Ident, AHelpContext) { }
  535.     /* Exception.CreateResFmtHelp */ __fastcall EOverflow(int Ident, const System::TVarRec * Args, const 
  536.         int Args_Size, int AHelpContext) : Sysutils::EMathError(Ident, Args, Args_Size, AHelpContext) { }
  537.     
  538. public:
  539.     /* TObject.Destroy */ __fastcall virtual ~EOverflow(void) { }
  540.     
  541. };
  542.  
  543. class DELPHICLASS EUnderflow;
  544. class PASCALIMPLEMENTATION EUnderflow : public Sysutils::EMathError 
  545. {
  546.     typedef Sysutils::EMathError inherited;
  547.     
  548. public:
  549.     /* Exception.Create */ __fastcall EUnderflow(const System::AnsiString Msg) : Sysutils::EMathError(Msg
  550.         ) { }
  551.     /* Exception.CreateFmt */ __fastcall EUnderflow(const System::AnsiString Msg, const System::TVarRec 
  552.         * Args, const int Args_Size) : Sysutils::EMathError(Msg, Args, Args_Size) { }
  553.     /* Exception.CreateRes */ __fastcall EUnderflow(int Ident, Extended Dummy) : Sysutils::EMathError(Ident
  554.         , Dummy) { }
  555.     /* Exception.CreateResFmt */ __fastcall EUnderflow(int Ident, const System::TVarRec * Args, const int 
  556.         Args_Size) : Sysutils::EMathError(Ident, Args, Args_Size) { }
  557.     /* Exception.CreateHelp */ __fastcall EUnderflow(const System::AnsiString Msg, int AHelpContext) : 
  558.         Sysutils::EMathError(Msg, AHelpContext) { }
  559.     /* Exception.CreateFmtHelp */ __fastcall EUnderflow(const System::AnsiString Msg, const System::TVarRec 
  560.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EMathError(Msg, Args, Args_Size, AHelpContext
  561.         ) { }
  562.     /* Exception.CreateResHelp */ __fastcall EUnderflow(int Ident, int AHelpContext) : Sysutils::EMathError(
  563.         Ident, AHelpContext) { }
  564.     /* Exception.CreateResFmtHelp */ __fastcall EUnderflow(int Ident, const System::TVarRec * Args, const 
  565.         int Args_Size, int AHelpContext) : Sysutils::EMathError(Ident, Args, Args_Size, AHelpContext) { }
  566.     
  567. public:
  568.     /* TObject.Destroy */ __fastcall virtual ~EUnderflow(void) { }
  569.     
  570. };
  571.  
  572. class DELPHICLASS EInvalidPointer;
  573. class PASCALIMPLEMENTATION EInvalidPointer : public Sysutils::Exception 
  574. {
  575.     typedef Sysutils::Exception inherited;
  576.     
  577. public:
  578.     /* Exception.Create */ __fastcall EInvalidPointer(const System::AnsiString Msg) : Sysutils::Exception(
  579.         Msg) { }
  580.     /* Exception.CreateFmt */ __fastcall EInvalidPointer(const System::AnsiString Msg, const System::TVarRec 
  581.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  582.     /* Exception.CreateRes */ __fastcall EInvalidPointer(int Ident, Extended Dummy) : Sysutils::Exception(
  583.         Ident, Dummy) { }
  584.     /* Exception.CreateResFmt */ __fastcall EInvalidPointer(int Ident, const System::TVarRec * Args, const 
  585.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  586.     /* Exception.CreateHelp */ __fastcall EInvalidPointer(const System::AnsiString Msg, int AHelpContext
  587.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  588.     /* Exception.CreateFmtHelp */ __fastcall EInvalidPointer(const System::AnsiString Msg, const System::TVarRec 
  589.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  590.         ) { }
  591.     /* Exception.CreateResHelp */ __fastcall EInvalidPointer(int Ident, int AHelpContext) : Sysutils::Exception(
  592.         Ident, AHelpContext) { }
  593.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidPointer(int Ident, const System::TVarRec * Args
  594.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  595.         ) { }
  596.     
  597. public:
  598.     /* TObject.Destroy */ __fastcall virtual ~EInvalidPointer(void) { }
  599.     
  600. };
  601.  
  602. class DELPHICLASS EInvalidCast;
  603. class PASCALIMPLEMENTATION EInvalidCast : public Sysutils::Exception 
  604. {
  605.     typedef Sysutils::Exception inherited;
  606.     
  607. public:
  608.     /* Exception.Create */ __fastcall EInvalidCast(const System::AnsiString Msg) : Sysutils::Exception(
  609.         Msg) { }
  610.     /* Exception.CreateFmt */ __fastcall EInvalidCast(const System::AnsiString Msg, const System::TVarRec 
  611.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  612.     /* Exception.CreateRes */ __fastcall EInvalidCast(int Ident, Extended Dummy) : Sysutils::Exception(
  613.         Ident, Dummy) { }
  614.     /* Exception.CreateResFmt */ __fastcall EInvalidCast(int Ident, const System::TVarRec * Args, const 
  615.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  616.     /* Exception.CreateHelp */ __fastcall EInvalidCast(const System::AnsiString Msg, int AHelpContext) : 
  617.         Sysutils::Exception(Msg, AHelpContext) { }
  618.     /* Exception.CreateFmtHelp */ __fastcall EInvalidCast(const System::AnsiString Msg, const System::TVarRec 
  619.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  620.         ) { }
  621.     /* Exception.CreateResHelp */ __fastcall EInvalidCast(int Ident, int AHelpContext) : Sysutils::Exception(
  622.         Ident, AHelpContext) { }
  623.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidCast(int Ident, const System::TVarRec * Args, const 
  624.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  625.     
  626. public:
  627.     /* TObject.Destroy */ __fastcall virtual ~EInvalidCast(void) { }
  628.     
  629. };
  630.  
  631. class DELPHICLASS EConvertError;
  632. class PASCALIMPLEMENTATION EConvertError : public Sysutils::Exception 
  633. {
  634.     typedef Sysutils::Exception inherited;
  635.     
  636. public:
  637.     /* Exception.Create */ __fastcall EConvertError(const System::AnsiString Msg) : Sysutils::Exception(
  638.         Msg) { }
  639.     /* Exception.CreateFmt */ __fastcall EConvertError(const System::AnsiString Msg, const System::TVarRec 
  640.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  641.     /* Exception.CreateRes */ __fastcall EConvertError(int Ident, Extended Dummy) : Sysutils::Exception(
  642.         Ident, Dummy) { }
  643.     /* Exception.CreateResFmt */ __fastcall EConvertError(int Ident, const System::TVarRec * Args, const 
  644.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  645.     /* Exception.CreateHelp */ __fastcall EConvertError(const System::AnsiString Msg, int AHelpContext)
  646.          : Sysutils::Exception(Msg, AHelpContext) { }
  647.     /* Exception.CreateFmtHelp */ __fastcall EConvertError(const System::AnsiString Msg, const System::TVarRec 
  648.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  649.         ) { }
  650.     /* Exception.CreateResHelp */ __fastcall EConvertError(int Ident, int AHelpContext) : Sysutils::Exception(
  651.         Ident, AHelpContext) { }
  652.     /* Exception.CreateResFmtHelp */ __fastcall EConvertError(int Ident, const System::TVarRec * Args, 
  653.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  654.          { }
  655.     
  656. public:
  657.     /* TObject.Destroy */ __fastcall virtual ~EConvertError(void) { }
  658.     
  659. };
  660.  
  661. class DELPHICLASS EAccessViolation;
  662. class PASCALIMPLEMENTATION EAccessViolation : public Sysutils::EExternal 
  663. {
  664.     typedef Sysutils::EExternal inherited;
  665.     
  666. public:
  667.     /* Exception.Create */ __fastcall EAccessViolation(const System::AnsiString Msg) : Sysutils::EExternal(
  668.         Msg) { }
  669.     /* Exception.CreateFmt */ __fastcall EAccessViolation(const System::AnsiString Msg, const System::TVarRec 
  670.         * Args, const int Args_Size) : Sysutils::EExternal(Msg, Args, Args_Size) { }
  671.     /* Exception.CreateRes */ __fastcall EAccessViolation(int Ident, Extended Dummy) : Sysutils::EExternal(
  672.         Ident, Dummy) { }
  673.     /* Exception.CreateResFmt */ __fastcall EAccessViolation(int Ident, const System::TVarRec * Args, const 
  674.         int Args_Size) : Sysutils::EExternal(Ident, Args, Args_Size) { }
  675.     /* Exception.CreateHelp */ __fastcall EAccessViolation(const System::AnsiString Msg, int AHelpContext
  676.         ) : Sysutils::EExternal(Msg, AHelpContext) { }
  677.     /* Exception.CreateFmtHelp */ __fastcall EAccessViolation(const System::AnsiString Msg, const System::TVarRec 
  678.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EExternal(Msg, Args, Args_Size, AHelpContext
  679.         ) { }
  680.     /* Exception.CreateResHelp */ __fastcall EAccessViolation(int Ident, int AHelpContext) : Sysutils::
  681.         EExternal(Ident, AHelpContext) { }
  682.     /* Exception.CreateResFmtHelp */ __fastcall EAccessViolation(int Ident, const System::TVarRec * Args
  683.         , const int Args_Size, int AHelpContext) : Sysutils::EExternal(Ident, Args, Args_Size, AHelpContext
  684.         ) { }
  685.     
  686. public:
  687.     /* TObject.Destroy */ __fastcall virtual ~EAccessViolation(void) { }
  688.     
  689. };
  690.  
  691. class DELPHICLASS EPrivilege;
  692. class PASCALIMPLEMENTATION EPrivilege : public Sysutils::EExternal 
  693. {
  694.     typedef Sysutils::EExternal inherited;
  695.     
  696. public:
  697.     /* Exception.Create */ __fastcall EPrivilege(const System::AnsiString Msg) : Sysutils::EExternal(Msg
  698.         ) { }
  699.     /* Exception.CreateFmt */ __fastcall EPrivilege(const System::AnsiString Msg, const System::TVarRec 
  700.         * Args, const int Args_Size) : Sysutils::EExternal(Msg, Args, Args_Size) { }
  701.     /* Exception.CreateRes */ __fastcall EPrivilege(int Ident, Extended Dummy) : Sysutils::EExternal(Ident
  702.         , Dummy) { }
  703.     /* Exception.CreateResFmt */ __fastcall EPrivilege(int Ident, const System::TVarRec * Args, const int 
  704.         Args_Size) : Sysutils::EExternal(Ident, Args, Args_Size) { }
  705.     /* Exception.CreateHelp */ __fastcall EPrivilege(const System::AnsiString Msg, int AHelpContext) : 
  706.         Sysutils::EExternal(Msg, AHelpContext) { }
  707.     /* Exception.CreateFmtHelp */ __fastcall EPrivilege(const System::AnsiString Msg, const System::TVarRec 
  708.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EExternal(Msg, Args, Args_Size, AHelpContext
  709.         ) { }
  710.     /* Exception.CreateResHelp */ __fastcall EPrivilege(int Ident, int AHelpContext) : Sysutils::EExternal(
  711.         Ident, AHelpContext) { }
  712.     /* Exception.CreateResFmtHelp */ __fastcall EPrivilege(int Ident, const System::TVarRec * Args, const 
  713.         int Args_Size, int AHelpContext) : Sysutils::EExternal(Ident, Args, Args_Size, AHelpContext) { }
  714.     
  715. public:
  716.     /* TObject.Destroy */ __fastcall virtual ~EPrivilege(void) { }
  717.     
  718. };
  719.  
  720. class DELPHICLASS EStackOverflow;
  721. class PASCALIMPLEMENTATION EStackOverflow : public Sysutils::EExternal 
  722. {
  723.     typedef Sysutils::EExternal inherited;
  724.     
  725. public:
  726.     /* Exception.Create */ __fastcall EStackOverflow(const System::AnsiString Msg) : Sysutils::EExternal(
  727.         Msg) { }
  728.     /* Exception.CreateFmt */ __fastcall EStackOverflow(const System::AnsiString Msg, const System::TVarRec 
  729.         * Args, const int Args_Size) : Sysutils::EExternal(Msg, Args, Args_Size) { }
  730.     /* Exception.CreateRes */ __fastcall EStackOverflow(int Ident, Extended Dummy) : Sysutils::EExternal(
  731.         Ident, Dummy) { }
  732.     /* Exception.CreateResFmt */ __fastcall EStackOverflow(int Ident, const System::TVarRec * Args, const 
  733.         int Args_Size) : Sysutils::EExternal(Ident, Args, Args_Size) { }
  734.     /* Exception.CreateHelp */ __fastcall EStackOverflow(const System::AnsiString Msg, int AHelpContext
  735.         ) : Sysutils::EExternal(Msg, AHelpContext) { }
  736.     /* Exception.CreateFmtHelp */ __fastcall EStackOverflow(const System::AnsiString Msg, const System::TVarRec 
  737.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EExternal(Msg, Args, Args_Size, AHelpContext
  738.         ) { }
  739.     /* Exception.CreateResHelp */ __fastcall EStackOverflow(int Ident, int AHelpContext) : Sysutils::EExternal(
  740.         Ident, AHelpContext) { }
  741.     /* Exception.CreateResFmtHelp */ __fastcall EStackOverflow(int Ident, const System::TVarRec * Args, 
  742.         const int Args_Size, int AHelpContext) : Sysutils::EExternal(Ident, Args, Args_Size, AHelpContext)
  743.          { }
  744.     
  745. public:
  746.     /* TObject.Destroy */ __fastcall virtual ~EStackOverflow(void) { }
  747.     
  748. };
  749.  
  750. class DELPHICLASS EControlC;
  751. class PASCALIMPLEMENTATION EControlC : public Sysutils::EExternal 
  752. {
  753.     typedef Sysutils::EExternal inherited;
  754.     
  755. public:
  756.     /* Exception.Create */ __fastcall EControlC(const System::AnsiString Msg) : Sysutils::EExternal(Msg
  757.         ) { }
  758.     /* Exception.CreateFmt */ __fastcall EControlC(const System::AnsiString Msg, const System::TVarRec 
  759.         * Args, const int Args_Size) : Sysutils::EExternal(Msg, Args, Args_Size) { }
  760.     /* Exception.CreateRes */ __fastcall EControlC(int Ident, Extended Dummy) : Sysutils::EExternal(Ident
  761.         , Dummy) { }
  762.     /* Exception.CreateResFmt */ __fastcall EControlC(int Ident, const System::TVarRec * Args, const int 
  763.         Args_Size) : Sysutils::EExternal(Ident, Args, Args_Size) { }
  764.     /* Exception.CreateHelp */ __fastcall EControlC(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  765.         EExternal(Msg, AHelpContext) { }
  766.     /* Exception.CreateFmtHelp */ __fastcall EControlC(const System::AnsiString Msg, const System::TVarRec 
  767.         * Args, const int Args_Size, int AHelpContext) : Sysutils::EExternal(Msg, Args, Args_Size, AHelpContext
  768.         ) { }
  769.     /* Exception.CreateResHelp */ __fastcall EControlC(int Ident, int AHelpContext) : Sysutils::EExternal(
  770.         Ident, AHelpContext) { }
  771.     /* Exception.CreateResFmtHelp */ __fastcall EControlC(int Ident, const System::TVarRec * Args, const 
  772.         int Args_Size, int AHelpContext) : Sysutils::EExternal(Ident, Args, Args_Size, AHelpContext) { }
  773.     
  774. public:
  775.     /* TObject.Destroy */ __fastcall virtual ~EControlC(void) { }
  776.     
  777. };
  778.  
  779. class DELPHICLASS EVariantError;
  780. class PASCALIMPLEMENTATION EVariantError : public Sysutils::Exception 
  781. {
  782.     typedef Sysutils::Exception inherited;
  783.     
  784. public:
  785.     /* Exception.Create */ __fastcall EVariantError(const System::AnsiString Msg) : Sysutils::Exception(
  786.         Msg) { }
  787.     /* Exception.CreateFmt */ __fastcall EVariantError(const System::AnsiString Msg, const System::TVarRec 
  788.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  789.     /* Exception.CreateRes */ __fastcall EVariantError(int Ident, Extended Dummy) : Sysutils::Exception(
  790.         Ident, Dummy) { }
  791.     /* Exception.CreateResFmt */ __fastcall EVariantError(int Ident, const System::TVarRec * Args, const 
  792.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  793.     /* Exception.CreateHelp */ __fastcall EVariantError(const System::AnsiString Msg, int AHelpContext)
  794.          : Sysutils::Exception(Msg, AHelpContext) { }
  795.     /* Exception.CreateFmtHelp */ __fastcall EVariantError(const System::AnsiString Msg, const System::TVarRec 
  796.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  797.         ) { }
  798.     /* Exception.CreateResHelp */ __fastcall EVariantError(int Ident, int AHelpContext) : Sysutils::Exception(
  799.         Ident, AHelpContext) { }
  800.     /* Exception.CreateResFmtHelp */ __fastcall EVariantError(int Ident, const System::TVarRec * Args, 
  801.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  802.          { }
  803.     
  804. public:
  805.     /* TObject.Destroy */ __fastcall virtual ~EVariantError(void) { }
  806.     
  807. };
  808.  
  809. class DELPHICLASS EPropReadOnly;
  810. class PASCALIMPLEMENTATION EPropReadOnly : public Sysutils::Exception 
  811. {
  812.     typedef Sysutils::Exception inherited;
  813.     
  814. public:
  815.     /* Exception.Create */ __fastcall EPropReadOnly(const System::AnsiString Msg) : Sysutils::Exception(
  816.         Msg) { }
  817.     /* Exception.CreateFmt */ __fastcall EPropReadOnly(const System::AnsiString Msg, const System::TVarRec 
  818.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  819.     /* Exception.CreateRes */ __fastcall EPropReadOnly(int Ident, Extended Dummy) : Sysutils::Exception(
  820.         Ident, Dummy) { }
  821.     /* Exception.CreateResFmt */ __fastcall EPropReadOnly(int Ident, const System::TVarRec * Args, const 
  822.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  823.     /* Exception.CreateHelp */ __fastcall EPropReadOnly(const System::AnsiString Msg, int AHelpContext)
  824.          : Sysutils::Exception(Msg, AHelpContext) { }
  825.     /* Exception.CreateFmtHelp */ __fastcall EPropReadOnly(const System::AnsiString Msg, const System::TVarRec 
  826.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  827.         ) { }
  828.     /* Exception.CreateResHelp */ __fastcall EPropReadOnly(int Ident, int AHelpContext) : Sysutils::Exception(
  829.         Ident, AHelpContext) { }
  830.     /* Exception.CreateResFmtHelp */ __fastcall EPropReadOnly(int Ident, const System::TVarRec * Args, 
  831.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  832.          { }
  833.     
  834. public:
  835.     /* TObject.Destroy */ __fastcall virtual ~EPropReadOnly(void) { }
  836.     
  837. };
  838.  
  839. class DELPHICLASS EPropWriteOnly;
  840. class PASCALIMPLEMENTATION EPropWriteOnly : public Sysutils::Exception 
  841. {
  842.     typedef Sysutils::Exception inherited;
  843.     
  844. public:
  845.     /* Exception.Create */ __fastcall EPropWriteOnly(const System::AnsiString Msg) : Sysutils::Exception(
  846.         Msg) { }
  847.     /* Exception.CreateFmt */ __fastcall EPropWriteOnly(const System::AnsiString Msg, const System::TVarRec 
  848.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  849.     /* Exception.CreateRes */ __fastcall EPropWriteOnly(int Ident, Extended Dummy) : Sysutils::Exception(
  850.         Ident, Dummy) { }
  851.     /* Exception.CreateResFmt */ __fastcall EPropWriteOnly(int Ident, const System::TVarRec * Args, const 
  852.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  853.     /* Exception.CreateHelp */ __fastcall EPropWriteOnly(const System::AnsiString Msg, int AHelpContext
  854.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  855.     /* Exception.CreateFmtHelp */ __fastcall EPropWriteOnly(const System::AnsiString Msg, const System::TVarRec 
  856.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  857.         ) { }
  858.     /* Exception.CreateResHelp */ __fastcall EPropWriteOnly(int Ident, int AHelpContext) : Sysutils::Exception(
  859.         Ident, AHelpContext) { }
  860.     /* Exception.CreateResFmtHelp */ __fastcall EPropWriteOnly(int Ident, const System::TVarRec * Args, 
  861.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  862.          { }
  863.     
  864. public:
  865.     /* TObject.Destroy */ __fastcall virtual ~EPropWriteOnly(void) { }
  866.     
  867. };
  868.  
  869. class DELPHICLASS EAssertionFailed;
  870. class PASCALIMPLEMENTATION EAssertionFailed : public Sysutils::Exception 
  871. {
  872.     typedef Sysutils::Exception inherited;
  873.     
  874. public:
  875.     /* Exception.Create */ __fastcall EAssertionFailed(const System::AnsiString Msg) : Sysutils::Exception(
  876.         Msg) { }
  877.     /* Exception.CreateFmt */ __fastcall EAssertionFailed(const System::AnsiString Msg, const System::TVarRec 
  878.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  879.     /* Exception.CreateRes */ __fastcall EAssertionFailed(int Ident, Extended Dummy) : Sysutils::Exception(
  880.         Ident, Dummy) { }
  881.     /* Exception.CreateResFmt */ __fastcall EAssertionFailed(int Ident, const System::TVarRec * Args, const 
  882.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  883.     /* Exception.CreateHelp */ __fastcall EAssertionFailed(const System::AnsiString Msg, int AHelpContext
  884.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  885.     /* Exception.CreateFmtHelp */ __fastcall EAssertionFailed(const System::AnsiString Msg, const System::TVarRec 
  886.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  887.         ) { }
  888.     /* Exception.CreateResHelp */ __fastcall EAssertionFailed(int Ident, int AHelpContext) : Sysutils::
  889.         Exception(Ident, AHelpContext) { }
  890.     /* Exception.CreateResFmtHelp */ __fastcall EAssertionFailed(int Ident, const System::TVarRec * Args
  891.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  892.         ) { }
  893.     
  894. public:
  895.     /* TObject.Destroy */ __fastcall virtual ~EAssertionFailed(void) { }
  896.     
  897. };
  898.  
  899. class DELPHICLASS EAbstractError;
  900. class PASCALIMPLEMENTATION EAbstractError : public Sysutils::Exception 
  901. {
  902.     typedef Sysutils::Exception inherited;
  903.     
  904. public:
  905.     /* Exception.Create */ __fastcall EAbstractError(const System::AnsiString Msg) : Sysutils::Exception(
  906.         Msg) { }
  907.     /* Exception.CreateFmt */ __fastcall EAbstractError(const System::AnsiString Msg, const System::TVarRec 
  908.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  909.     /* Exception.CreateRes */ __fastcall EAbstractError(int Ident, Extended Dummy) : Sysutils::Exception(
  910.         Ident, Dummy) { }
  911.     /* Exception.CreateResFmt */ __fastcall EAbstractError(int Ident, const System::TVarRec * Args, const 
  912.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  913.     /* Exception.CreateHelp */ __fastcall EAbstractError(const System::AnsiString Msg, int AHelpContext
  914.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  915.     /* Exception.CreateFmtHelp */ __fastcall EAbstractError(const System::AnsiString Msg, const System::TVarRec 
  916.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  917.         ) { }
  918.     /* Exception.CreateResHelp */ __fastcall EAbstractError(int Ident, int AHelpContext) : Sysutils::Exception(
  919.         Ident, AHelpContext) { }
  920.     /* Exception.CreateResFmtHelp */ __fastcall EAbstractError(int Ident, const System::TVarRec * Args, 
  921.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  922.          { }
  923.     
  924. public:
  925.     /* TObject.Destroy */ __fastcall virtual ~EAbstractError(void) { }
  926.     
  927. };
  928.  
  929. class DELPHICLASS EIntfCastError;
  930. class PASCALIMPLEMENTATION EIntfCastError : public Sysutils::Exception 
  931. {
  932.     typedef Sysutils::Exception inherited;
  933.     
  934. public:
  935.     /* Exception.Create */ __fastcall EIntfCastError(const System::AnsiString Msg) : Sysutils::Exception(
  936.         Msg) { }
  937.     /* Exception.CreateFmt */ __fastcall EIntfCastError(const System::AnsiString Msg, const System::TVarRec 
  938.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  939.     /* Exception.CreateRes */ __fastcall EIntfCastError(int Ident, Extended Dummy) : Sysutils::Exception(
  940.         Ident, Dummy) { }
  941.     /* Exception.CreateResFmt */ __fastcall EIntfCastError(int Ident, const System::TVarRec * Args, const 
  942.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  943.     /* Exception.CreateHelp */ __fastcall EIntfCastError(const System::AnsiString Msg, int AHelpContext
  944.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  945.     /* Exception.CreateFmtHelp */ __fastcall EIntfCastError(const System::AnsiString Msg, const System::TVarRec 
  946.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  947.         ) { }
  948.     /* Exception.CreateResHelp */ __fastcall EIntfCastError(int Ident, int AHelpContext) : Sysutils::Exception(
  949.         Ident, AHelpContext) { }
  950.     /* Exception.CreateResFmtHelp */ __fastcall EIntfCastError(int Ident, const System::TVarRec * Args, 
  951.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  952.          { }
  953.     
  954. public:
  955.     /* TObject.Destroy */ __fastcall virtual ~EIntfCastError(void) { }
  956.     
  957. };
  958.  
  959. class DELPHICLASS EInvalidContainer;
  960. class PASCALIMPLEMENTATION EInvalidContainer : public Sysutils::Exception 
  961. {
  962.     typedef Sysutils::Exception inherited;
  963.     
  964. public:
  965.     /* Exception.Create */ __fastcall EInvalidContainer(const System::AnsiString Msg) : Sysutils::Exception(
  966.         Msg) { }
  967.     /* Exception.CreateFmt */ __fastcall EInvalidContainer(const System::AnsiString Msg, const System::TVarRec 
  968.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  969.     /* Exception.CreateRes */ __fastcall EInvalidContainer(int Ident, Extended Dummy) : Sysutils::Exception(
  970.         Ident, Dummy) { }
  971.     /* Exception.CreateResFmt */ __fastcall EInvalidContainer(int Ident, const System::TVarRec * Args, 
  972.         const int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  973.     /* Exception.CreateHelp */ __fastcall EInvalidContainer(const System::AnsiString Msg, int AHelpContext
  974.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  975.     /* Exception.CreateFmtHelp */ __fastcall EInvalidContainer(const System::AnsiString Msg, const System::TVarRec 
  976.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  977.         ) { }
  978.     /* Exception.CreateResHelp */ __fastcall EInvalidContainer(int Ident, int AHelpContext) : Sysutils::
  979.         Exception(Ident, AHelpContext) { }
  980.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidContainer(int Ident, const System::TVarRec * Args
  981.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  982.         ) { }
  983.     
  984. public:
  985.     /* TObject.Destroy */ __fastcall virtual ~EInvalidContainer(void) { }
  986.     
  987. };
  988.  
  989. class DELPHICLASS EInvalidInsert;
  990. class PASCALIMPLEMENTATION EInvalidInsert : public Sysutils::Exception 
  991. {
  992.     typedef Sysutils::Exception inherited;
  993.     
  994. public:
  995.     /* Exception.Create */ __fastcall EInvalidInsert(const System::AnsiString Msg) : Sysutils::Exception(
  996.         Msg) { }
  997.     /* Exception.CreateFmt */ __fastcall EInvalidInsert(const System::AnsiString Msg, const System::TVarRec 
  998.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  999.     /* Exception.CreateRes */ __fastcall EInvalidInsert(int Ident, Extended Dummy) : Sysutils::Exception(
  1000.         Ident, Dummy) { }
  1001.     /* Exception.CreateResFmt */ __fastcall EInvalidInsert(int Ident, const System::TVarRec * Args, const 
  1002.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  1003.     /* Exception.CreateHelp */ __fastcall EInvalidInsert(const System::AnsiString Msg, int AHelpContext
  1004.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  1005.     /* Exception.CreateFmtHelp */ __fastcall EInvalidInsert(const System::AnsiString Msg, const System::TVarRec 
  1006.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  1007.         ) { }
  1008.     /* Exception.CreateResHelp */ __fastcall EInvalidInsert(int Ident, int AHelpContext) : Sysutils::Exception(
  1009.         Ident, AHelpContext) { }
  1010.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidInsert(int Ident, const System::TVarRec * Args, 
  1011.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  1012.          { }
  1013.     
  1014. public:
  1015.     /* TObject.Destroy */ __fastcall virtual ~EInvalidInsert(void) { }
  1016.     
  1017. };
  1018.  
  1019. class DELPHICLASS EPackageError;
  1020. class PASCALIMPLEMENTATION EPackageError : public Sysutils::Exception 
  1021. {
  1022.     typedef Sysutils::Exception inherited;
  1023.     
  1024. public:
  1025.     /* Exception.Create */ __fastcall EPackageError(const System::AnsiString Msg) : Sysutils::Exception(
  1026.         Msg) { }
  1027.     /* Exception.CreateFmt */ __fastcall EPackageError(const System::AnsiString Msg, const System::TVarRec 
  1028.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  1029.     /* Exception.CreateRes */ __fastcall EPackageError(int Ident, Extended Dummy) : Sysutils::Exception(
  1030.         Ident, Dummy) { }
  1031.     /* Exception.CreateResFmt */ __fastcall EPackageError(int Ident, const System::TVarRec * Args, const 
  1032.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  1033.     /* Exception.CreateHelp */ __fastcall EPackageError(const System::AnsiString Msg, int AHelpContext)
  1034.          : Sysutils::Exception(Msg, AHelpContext) { }
  1035.     /* Exception.CreateFmtHelp */ __fastcall EPackageError(const System::AnsiString Msg, const System::TVarRec 
  1036.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  1037.         ) { }
  1038.     /* Exception.CreateResHelp */ __fastcall EPackageError(int Ident, int AHelpContext) : Sysutils::Exception(
  1039.         Ident, AHelpContext) { }
  1040.     /* Exception.CreateResFmtHelp */ __fastcall EPackageError(int Ident, const System::TVarRec * Args, 
  1041.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  1042.          { }
  1043.     
  1044. public:
  1045.     /* TObject.Destroy */ __fastcall virtual ~EPackageError(void) { }
  1046.     
  1047. };
  1048.  
  1049. class DELPHICLASS EWin32Error;
  1050. class PASCALIMPLEMENTATION EWin32Error : public Sysutils::Exception 
  1051. {
  1052.     typedef Sysutils::Exception inherited;
  1053.     
  1054. public:
  1055.     int ErrorCode;
  1056. public:
  1057.     /* Exception.Create */ __fastcall EWin32Error(const System::AnsiString Msg) : Sysutils::Exception(Msg
  1058.         ) { }
  1059.     /* Exception.CreateFmt */ __fastcall EWin32Error(const System::AnsiString Msg, const System::TVarRec 
  1060.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  1061.     /* Exception.CreateRes */ __fastcall EWin32Error(int Ident, Extended Dummy) : Sysutils::Exception(Ident
  1062.         , Dummy) { }
  1063.     /* Exception.CreateResFmt */ __fastcall EWin32Error(int Ident, const System::TVarRec * Args, const 
  1064.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  1065.     /* Exception.CreateHelp */ __fastcall EWin32Error(const System::AnsiString Msg, int AHelpContext) : 
  1066.         Sysutils::Exception(Msg, AHelpContext) { }
  1067.     /* Exception.CreateFmtHelp */ __fastcall EWin32Error(const System::AnsiString Msg, const System::TVarRec 
  1068.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  1069.         ) { }
  1070.     /* Exception.CreateResHelp */ __fastcall EWin32Error(int Ident, int AHelpContext) : Sysutils::Exception(
  1071.         Ident, AHelpContext) { }
  1072.     /* Exception.CreateResFmtHelp */ __fastcall EWin32Error(int Ident, const System::TVarRec * Args, const 
  1073.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  1074.     
  1075. public:
  1076.     /* TObject.Destroy */ __fastcall virtual ~EWin32Error(void) { }
  1077.     
  1078. };
  1079.  
  1080. typedef Word TDayTable[12];
  1081.  
  1082. typedef TDayTable *PDayTable;
  1083.  
  1084. enum SysUtils__43 { rfReplaceAll, rfIgnoreCase };
  1085.  
  1086. typedef Set<SysUtils__43, rfReplaceAll, rfIgnoreCase>  TReplaceFlags;
  1087.  
  1088. enum TNameType { ntContainsUnit, ntRequiresPackage };
  1089.  
  1090. typedef void __fastcall (*TPackageInfoProc)(const System::AnsiString Name, TNameType NameType, Byte 
  1091.     Flags, void * Param);
  1092.  
  1093. typedef bool __fastcall (*TTerminateProc)(void);
  1094.  
  1095. //-- var, const, procedure ---------------------------------------------------
  1096. #define fmOpenRead (Byte)(0)
  1097. #define fmOpenWrite (Byte)(1)
  1098. #define fmOpenReadWrite (Byte)(2)
  1099. #define fmShareCompat (Byte)(0)
  1100. #define fmShareExclusive (Byte)(16)
  1101. #define fmShareDenyWrite (Byte)(32)
  1102. #define fmShareDenyRead (Byte)(48)
  1103. #define fmShareDenyNone (Byte)(64)
  1104. #define faReadOnly (Byte)(1)
  1105. #define faHidden (Byte)(2)
  1106. #define faSysFile (Byte)(4)
  1107. #define faVolumeID (Byte)(8)
  1108. #define faDirectory (Byte)(16)
  1109. #define faArchive (Byte)(32)
  1110. #define faAnyFile (Byte)(63)
  1111. #define fmClosed (int)(55216)
  1112. #define fmInput (int)(55217)
  1113. #define fmOutput (int)(55218)
  1114. #define fmInOut (int)(55219)
  1115. #define SecsPerDay (int)(86400)
  1116. #define MSecsPerDay (int)(86400000)
  1117. #define DateDelta (int)(693594)
  1118. extern PACKAGE System::AnsiString EmptyStr;
  1119. extern PACKAGE System::AnsiString *NullStr;
  1120. extern PACKAGE int Win32Platform;
  1121. extern PACKAGE int Win32MajorVersion;
  1122. extern PACKAGE int Win32MinorVersion;
  1123. extern PACKAGE int Win32BuildNumber;
  1124. extern PACKAGE System::AnsiString Win32CSDVersion;
  1125. extern PACKAGE System::AnsiString CurrencyString;
  1126. extern PACKAGE Byte CurrencyFormat;
  1127. extern PACKAGE Byte NegCurrFormat;
  1128. extern PACKAGE char ThousandSeparator;
  1129. extern PACKAGE char DecimalSeparator;
  1130. extern PACKAGE Byte CurrencyDecimals;
  1131. extern PACKAGE char DateSeparator;
  1132. extern PACKAGE System::AnsiString ShortDateFormat;
  1133. extern PACKAGE System::AnsiString LongDateFormat;
  1134. extern PACKAGE char TimeSeparator;
  1135. extern PACKAGE System::AnsiString TimeAMString;
  1136. extern PACKAGE System::AnsiString TimePMString;
  1137. extern PACKAGE System::AnsiString ShortTimeFormat;
  1138. extern PACKAGE System::AnsiString LongTimeFormat;
  1139. extern PACKAGE System::AnsiString ShortMonthNames[12];
  1140. extern PACKAGE System::AnsiString LongMonthNames[12];
  1141. extern PACKAGE System::AnsiString ShortDayNames[7];
  1142. extern PACKAGE System::AnsiString LongDayNames[7];
  1143. extern PACKAGE TSysLocale SysLocale;
  1144. extern PACKAGE System::AnsiString EraNames[7];
  1145. extern PACKAGE int EraYearOffsets[7];
  1146. extern PACKAGE Word MonthDays[2][12];
  1147. extern PACKAGE System::Set<char, 0, 255>  LeadBytes;
  1148. #define pfNeverBuild (Byte)(1)
  1149. #define pfDesignOnly (Byte)(2)
  1150. #define pfRunOnly (Byte)(4)
  1151. #define pfModuleTypeMask (int)(-1073741824)
  1152. #define pfExeModule (Byte)(0)
  1153. #define pfPackageModule (int)(1073741824)
  1154. #define pfLibraryModule (int)(0x80000000)
  1155. #define ufMainUnit (Byte)(1)
  1156. #define ufPackageUnit (Byte)(2)
  1157. #define ufWeakUnit (Byte)(4)
  1158. #define ufOrgWeakUnit (Byte)(8)
  1159. #define ufImplicitUnit (Byte)(16)
  1160. #define ufWeakPackageUnit (Byte)(6)
  1161. extern PACKAGE System::AnsiString HexDisplayPrefix;
  1162. extern PACKAGE void * __fastcall AllocMem(Cardinal Size);
  1163. extern PACKAGE void __fastcall AddExitProc(TProcedure Proc);
  1164. extern PACKAGE System::PAnsiString __fastcall NewStr(const System::AnsiString S);
  1165. extern PACKAGE void __fastcall DisposeStr(System::PAnsiString P);
  1166. extern PACKAGE void __fastcall AssignStr(System::PAnsiString &P, const System::AnsiString S);
  1167. extern PACKAGE void __fastcall AppendStr(System::AnsiString &Dest, const System::AnsiString S);
  1168. extern PACKAGE System::AnsiString __fastcall UpperCase(const System::AnsiString S);
  1169. extern PACKAGE System::AnsiString __fastcall LowerCase(const System::AnsiString S);
  1170. extern PACKAGE int __fastcall CompareStr(const System::AnsiString S1, const System::AnsiString S2);
  1171. extern PACKAGE bool __fastcall CompareMem(void * P1, void * P2, int Length);
  1172. extern PACKAGE int __fastcall CompareText(const System::AnsiString S1, const System::AnsiString S2);
  1173.     
  1174. extern PACKAGE System::AnsiString __fastcall AnsiUpperCase(const System::AnsiString S);
  1175. extern PACKAGE System::AnsiString __fastcall AnsiLowerCase(const System::AnsiString S);
  1176. extern PACKAGE int __fastcall AnsiCompareStr(const System::AnsiString S1, const System::AnsiString S2
  1177.     );
  1178. extern PACKAGE int __fastcall AnsiCompareText(const System::AnsiString S1, const System::AnsiString 
  1179.     S2);
  1180. extern PACKAGE int __fastcall AnsiStrComp(char * S1, char * S2);
  1181. extern PACKAGE int __fastcall AnsiStrIComp(char * S1, char * S2);
  1182. extern PACKAGE int __fastcall AnsiStrLComp(char * S1, char * S2, Cardinal MaxLen);
  1183. extern PACKAGE int __fastcall AnsiStrLIComp(char * S1, char * S2, Cardinal MaxLen);
  1184. extern PACKAGE char * __fastcall AnsiStrLower(char * Str);
  1185. extern PACKAGE char * __fastcall AnsiStrUpper(char * Str);
  1186. extern PACKAGE System::AnsiString __fastcall Trim(const System::AnsiString S);
  1187. extern PACKAGE System::AnsiString __fastcall TrimLeft(const System::AnsiString S);
  1188. extern PACKAGE System::AnsiString __fastcall TrimRight(const System::AnsiString S);
  1189. extern PACKAGE System::AnsiString __fastcall QuotedStr(const System::AnsiString S);
  1190. extern PACKAGE System::AnsiString __fastcall AnsiQuotedStr(const System::AnsiString S, char Quote);
  1191. extern PACKAGE System::AnsiString __fastcall AnsiExtractQuotedStr(char * &Src, char Quote);
  1192. extern PACKAGE System::AnsiString __fastcall AdjustLineBreaks(const System::AnsiString S);
  1193. extern PACKAGE bool __fastcall IsValidIdent(const System::AnsiString Ident);
  1194. extern PACKAGE System::AnsiString __fastcall IntToStr(int Value);
  1195. extern PACKAGE System::AnsiString __fastcall IntToHex(int Value, int Digits);
  1196. extern PACKAGE int __fastcall StrToInt(const System::AnsiString S);
  1197. extern PACKAGE int __fastcall StrToIntDef(const System::AnsiString S, int Default);
  1198. extern PACKAGE System::AnsiString __fastcall LoadStr(int Ident);
  1199. extern PACKAGE System::AnsiString __fastcall FmtLoadStr(int Ident, const System::TVarRec * Args, const 
  1200.     int Args_Size);
  1201. extern PACKAGE int __fastcall FileOpen(const System::AnsiString FileName, int Mode);
  1202. extern PACKAGE int __fastcall FileCreate(const System::AnsiString FileName);
  1203. extern PACKAGE int __fastcall FileRead(int Handle, void *Buffer, int Count);
  1204. extern PACKAGE int __fastcall FileWrite(int Handle, const void *Buffer, int Count);
  1205. extern PACKAGE int __fastcall FileSeek(int Handle, int Offset, int Origin);
  1206. extern PACKAGE void __fastcall FileClose(int Handle);
  1207. extern PACKAGE int __fastcall FileAge(const System::AnsiString FileName);
  1208. extern PACKAGE bool __fastcall FileExists(const System::AnsiString FileName);
  1209. extern PACKAGE int __fastcall FileGetDate(int Handle);
  1210. extern PACKAGE int __fastcall FileSetDate(int Handle, int Age);
  1211. extern PACKAGE int __fastcall FileGetAttr(const System::AnsiString FileName);
  1212. extern PACKAGE int __fastcall FileSetAttr(const System::AnsiString FileName, int Attr);
  1213. extern PACKAGE int __fastcall FindFirst(const System::AnsiString Path, int Attr, TSearchRec &F);
  1214. extern PACKAGE int __fastcall FindNext(TSearchRec &F);
  1215. extern PACKAGE void __fastcall FindClose(TSearchRec &F);
  1216. extern PACKAGE bool __fastcall DeleteFile(const System::AnsiString FileName);
  1217. extern PACKAGE bool __fastcall RenameFile(const System::AnsiString OldName, const System::AnsiString 
  1218.     NewName);
  1219. extern PACKAGE char * __fastcall AnsiStrLastChar(char * P);
  1220. extern PACKAGE char * __fastcall AnsiLastChar(const System::AnsiString S);
  1221. extern PACKAGE int __fastcall LastDelimiter(const System::AnsiString Delimiters, const System::AnsiString 
  1222.     S);
  1223. extern PACKAGE System::AnsiString __fastcall ChangeFileExt(const System::AnsiString FileName, const 
  1224.     System::AnsiString Extension);
  1225. extern PACKAGE System::AnsiString __fastcall ExtractFilePath(const System::AnsiString FileName);
  1226. extern PACKAGE System::AnsiString __fastcall ExtractFileDir(const System::AnsiString FileName);
  1227. extern PACKAGE System::AnsiString __fastcall ExtractFileDrive(const System::AnsiString FileName);
  1228. extern PACKAGE System::AnsiString __fastcall ExtractFileName(const System::AnsiString FileName);
  1229. extern PACKAGE System::AnsiString __fastcall ExtractFileExt(const System::AnsiString FileName);
  1230. extern PACKAGE System::AnsiString __fastcall ExpandFileName(const System::AnsiString FileName);
  1231. extern PACKAGE System::AnsiString __fastcall ExpandUNCFileName(const System::AnsiString FileName);
  1232. extern PACKAGE System::AnsiString __fastcall ExtractRelativePath(const System::AnsiString BaseName, 
  1233.     const System::AnsiString DestName);
  1234. extern PACKAGE System::AnsiString __fastcall ExtractShortPathName(const System::AnsiString FileName)
  1235.     ;
  1236. extern PACKAGE System::AnsiString __fastcall FileSearch(const System::AnsiString Name, const System::AnsiString 
  1237.     DirList);
  1238. extern PACKAGE int __fastcall DiskFree(Byte Drive);
  1239. extern PACKAGE int __fastcall DiskSize(Byte Drive);
  1240. extern PACKAGE System::TDateTime __fastcall FileDateToDateTime(int FileDate);
  1241. extern PACKAGE int __fastcall DateTimeToFileDate(System::TDateTime DateTime);
  1242. extern PACKAGE System::AnsiString __fastcall GetCurrentDir(void);
  1243. extern PACKAGE bool __fastcall SetCurrentDir(const System::AnsiString Dir);
  1244. extern PACKAGE bool __fastcall CreateDir(const System::AnsiString Dir);
  1245. extern PACKAGE bool __fastcall RemoveDir(const System::AnsiString Dir);
  1246. extern PACKAGE Cardinal __fastcall StrLen(char * Str);
  1247. extern PACKAGE char * __fastcall StrEnd(char * Str);
  1248. extern PACKAGE char * __fastcall StrMove(char * Dest, char * Source, Cardinal Count);
  1249. extern PACKAGE char * __fastcall StrCopy(char * Dest, char * Source);
  1250. extern PACKAGE char * __fastcall StrECopy(char * Dest, char * Source);
  1251. extern PACKAGE char * __fastcall StrLCopy(char * Dest, char * Source, Cardinal MaxLen);
  1252. extern PACKAGE char * __fastcall StrPCopy(char * Dest, const System::AnsiString Source);
  1253. extern PACKAGE char * __fastcall StrPLCopy(char * Dest, const System::AnsiString Source, Cardinal MaxLen
  1254.     );
  1255. extern PACKAGE char * __fastcall StrCat(char * Dest, char * Source);
  1256. extern PACKAGE char * __fastcall StrLCat(char * Dest, char * Source, Cardinal MaxLen);
  1257. extern PACKAGE int __fastcall StrComp(char * Str1, char * Str2);
  1258. extern PACKAGE int __fastcall StrIComp(char * Str1, char * Str2);
  1259. extern PACKAGE int __fastcall StrLComp(char * Str1, char * Str2, Cardinal MaxLen);
  1260. extern PACKAGE int __fastcall StrLIComp(char * Str1, char * Str2, Cardinal MaxLen);
  1261. extern PACKAGE char * __fastcall StrScan(char * Str, char Chr);
  1262. extern PACKAGE char * __fastcall StrRScan(char * Str, char Chr);
  1263. extern PACKAGE char * __fastcall StrPos(char * Str1, char * Str2);
  1264. extern PACKAGE char * __fastcall StrUpper(char * Str);
  1265. extern PACKAGE char * __fastcall StrLower(char * Str);
  1266. extern PACKAGE System::AnsiString __fastcall StrPas(char * Str);
  1267. extern PACKAGE char * __fastcall StrAlloc(Cardinal Size);
  1268. extern PACKAGE Cardinal __fastcall StrBufSize(char * Str);
  1269. extern PACKAGE char * __fastcall StrNew(char * Str);
  1270. extern PACKAGE void __fastcall StrDispose(char * Str);
  1271. extern PACKAGE Cardinal __fastcall FormatBuf(void *Buffer, Cardinal BufLen, const void *Format, Cardinal 
  1272.     FmtLen, const System::TVarRec * Args, const int Args_Size);
  1273. extern PACKAGE char * __fastcall StrFmt(char * Buffer, char * Format, const System::TVarRec * Args, 
  1274.     const int Args_Size);
  1275. extern PACKAGE char * __fastcall StrLFmt(char * Buffer, Cardinal MaxLen, char * Format, const System::TVarRec 
  1276.     * Args, const int Args_Size);
  1277. extern PACKAGE System::AnsiString __fastcall Format(const System::AnsiString Format, const System::TVarRec 
  1278.     * Args, const int Args_Size);
  1279. extern PACKAGE void __fastcall FmtStr(System::AnsiString &Result, const System::AnsiString Format, const 
  1280.     System::TVarRec * Args, const int Args_Size);
  1281. extern PACKAGE System::AnsiString __fastcall FloatToStr(Extended Value);
  1282. extern PACKAGE System::AnsiString __fastcall CurrToStr(System::Currency Value);
  1283. extern PACKAGE System::AnsiString __fastcall FloatToStrF(Extended Value, TFloatFormat Format, int Precision
  1284.     , int Digits);
  1285. extern PACKAGE System::AnsiString __fastcall CurrToStrF(System::Currency Value, TFloatFormat Format, 
  1286.     int Digits);
  1287. extern PACKAGE System::AnsiString __fastcall FormatFloat(const System::AnsiString Format, Extended Value
  1288.     );
  1289. extern PACKAGE System::AnsiString __fastcall FormatCurr(const System::AnsiString Format, System::Currency 
  1290.     Value);
  1291. extern PACKAGE Extended __fastcall StrToFloat(const System::AnsiString S);
  1292. extern PACKAGE System::Currency __fastcall StrToCurr(const System::AnsiString S);
  1293. extern PACKAGE TTimeStamp __fastcall DateTimeToTimeStamp(System::TDateTime DateTime);
  1294. extern PACKAGE System::TDateTime __fastcall TimeStampToDateTime(const TTimeStamp &TimeStamp);
  1295. extern PACKAGE TTimeStamp __fastcall MSecsToTimeStamp(System::Comp MSecs);
  1296. extern PACKAGE System::Comp __fastcall TimeStampToMSecs(const TTimeStamp &TimeStamp);
  1297. extern PACKAGE System::TDateTime __fastcall EncodeTime(Word Hour, Word Min, Word Sec, Word MSec);
  1298. extern PACKAGE void __fastcall DecodeTime(System::TDateTime Time, Word &Hour, Word &Min, Word &Sec, 
  1299.     Word &MSec);
  1300. extern PACKAGE bool __fastcall IsLeapYear(Word Year);
  1301. extern PACKAGE System::TDateTime __fastcall EncodeDate(Word Year, Word Month, Word Day);
  1302. extern PACKAGE void __fastcall DecodeDate(System::TDateTime Date, Word &Year, Word &Month, Word &Day
  1303.     );
  1304. extern PACKAGE void __fastcall DateTimeToSystemTime(System::TDateTime DateTime, _SYSTEMTIME &SystemTime
  1305.     );
  1306. extern PACKAGE System::TDateTime __fastcall SystemTimeToDateTime(const _SYSTEMTIME &SystemTime);
  1307. extern PACKAGE int __fastcall DayOfWeek(System::TDateTime Date);
  1308. extern PACKAGE System::TDateTime __fastcall Date(void);
  1309. extern PACKAGE System::TDateTime __fastcall Time(void);
  1310. extern PACKAGE System::TDateTime __fastcall Now(void);
  1311. extern PACKAGE System::TDateTime __fastcall IncMonth(const System::TDateTime Date, int NumberOfMonths
  1312.     );
  1313. extern PACKAGE void __fastcall DateTimeToString(System::AnsiString &Result, const System::AnsiString 
  1314.     Format, System::TDateTime DateTime);
  1315. extern PACKAGE System::AnsiString __fastcall DateToStr(System::TDateTime Date);
  1316. extern PACKAGE System::AnsiString __fastcall TimeToStr(System::TDateTime Time);
  1317. extern PACKAGE System::AnsiString __fastcall DateTimeToStr(System::TDateTime DateTime);
  1318. extern PACKAGE System::AnsiString __fastcall FormatDateTime(const System::AnsiString Format, System::TDateTime 
  1319.     DateTime);
  1320. extern PACKAGE System::TDateTime __fastcall StrToDate(const System::AnsiString S);
  1321. extern PACKAGE System::TDateTime __fastcall StrToTime(const System::AnsiString S);
  1322. extern PACKAGE System::TDateTime __fastcall StrToDateTime(const System::AnsiString S);
  1323. extern PACKAGE System::AnsiString __fastcall SysErrorMessage(int ErrorCode);
  1324. extern PACKAGE System::AnsiString __fastcall GetLocaleStr(int Locale, int LocaleType, const System::AnsiString 
  1325.     Default);
  1326. extern PACKAGE char __fastcall GetLocaleChar(int Locale, int LocaleType, char Default);
  1327. extern PACKAGE void __fastcall GetFormatSettings(void);
  1328. extern PACKAGE System::TObject* __fastcall ExceptObject(void);
  1329. extern PACKAGE void * __fastcall ExceptAddr(void);
  1330. extern PACKAGE int __fastcall ExceptionErrorMessage(System::TObject* ExceptObject, void * ExceptAddr
  1331.     , char * Buffer, int Size);
  1332. extern PACKAGE void __fastcall ShowException(System::TObject* ExceptObject, void * ExceptAddr);
  1333. extern PACKAGE void __fastcall Abort(void);
  1334. extern PACKAGE void __fastcall OutOfMemoryError(void);
  1335. extern PACKAGE void __fastcall Beep(void);
  1336. extern PACKAGE TMbcsByteType __fastcall ByteType(const System::AnsiString S, int Index);
  1337. extern PACKAGE TMbcsByteType __fastcall StrByteType(char * Str, Cardinal Index);
  1338. extern PACKAGE int __fastcall ByteToCharLen(const System::AnsiString S, int MaxLen);
  1339. extern PACKAGE int __fastcall ByteToCharIndex(const System::AnsiString S, int Index);
  1340. extern PACKAGE int __fastcall CharToByteIndex(const System::AnsiString S, int Index);
  1341. extern PACKAGE int __fastcall CharToByteLen(const System::AnsiString S, int MaxLen);
  1342. extern PACKAGE bool __fastcall IsPathDelimiter(const System::AnsiString S, int Index);
  1343. extern PACKAGE bool __fastcall IsDelimiter(const System::AnsiString Delimiters, const System::AnsiString 
  1344.     S, int Index);
  1345. extern PACKAGE int __fastcall AnsiPos(const System::AnsiString Substr, const System::AnsiString S);
  1346. extern PACKAGE int __fastcall AnsiCompareFileName(const System::AnsiString S1, const System::AnsiString 
  1347.     S2);
  1348. extern PACKAGE System::AnsiString __fastcall AnsiLowerCaseFileName(const System::AnsiString S);
  1349. extern PACKAGE System::AnsiString __fastcall AnsiUpperCaseFileName(const System::AnsiString S);
  1350. extern PACKAGE char * __fastcall AnsiStrPos(char * Str, char * SubStr);
  1351. extern PACKAGE char * __fastcall AnsiStrRScan(char * Str, char Chr);
  1352. extern PACKAGE char * __fastcall AnsiStrScan(char * Str, char Chr);
  1353. extern PACKAGE System::AnsiString __fastcall StringReplace(const System::AnsiString S, const System::AnsiString 
  1354.     OldPattern, const System::AnsiString NewPattern, TReplaceFlags Flags);
  1355. extern PACKAGE System::AnsiString __fastcall WrapText(const System::AnsiString Line, const System::AnsiString 
  1356.     BreakStr, const TSysCharSet &BreakChars, int MaxCol);
  1357. extern PACKAGE bool __fastcall FindCmdLineSwitch(const System::AnsiString Switch, const TSysCharSet 
  1358.     &SwitchChars, bool IgnoreCase);
  1359. extern PACKAGE void __fastcall InitializePackage(Windows::HINST Module);
  1360. extern PACKAGE void __fastcall FinalizePackage(Windows::HINST Module);
  1361. extern PACKAGE Windows::HINST __fastcall LoadPackage(const System::AnsiString Name);
  1362. extern PACKAGE void __fastcall UnloadPackage(Windows::HINST Module);
  1363. extern PACKAGE void __fastcall GetPackageInfo(Windows::HINST Module, void * Param, int &Flags, TPackageInfoProc 
  1364.     InfoProc);
  1365. extern PACKAGE System::AnsiString __fastcall GetPackageDescription(char * ModuleName);
  1366. extern PACKAGE void __fastcall RaiseLastWin32Error(void);
  1367. extern PACKAGE BOOL __fastcall Win32Check(BOOL RetVal);
  1368. extern PACKAGE void __fastcall AddTerminateProc(TTerminateProc TermProc);
  1369. extern PACKAGE bool __fastcall CallTerminateProcs(void);
  1370. extern PACKAGE int __fastcall GDAL(void);
  1371. extern PACKAGE void __fastcall RCS(void);
  1372. extern PACKAGE void __fastcall RPR(void);
  1373. extern PACKAGE int __fastcall FloatToText(char * Buffer, const void *Value, TFloatValue ValueType, TFloatFormat 
  1374.     Format, int Precision, int Digits);
  1375. extern PACKAGE int __fastcall FloatToTextFmt(char * Buffer, const void *Value, TFloatValue ValueType
  1376.     , char * Format);
  1377. extern PACKAGE void __fastcall FloatToDecimal(TFloatRec &Result, const void *Value, TFloatValue ValueType
  1378.     , int Precision, int Decimals);
  1379. extern PACKAGE bool __fastcall TextToFloat(char * Buffer, void *Value, TFloatValue ValueType);
  1380.  
  1381. }    /* namespace Sysutils */
  1382. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1383. using namespace Sysutils;
  1384. #endif
  1385. //-- end unit ----------------------------------------------------------------
  1386. #endif    // SysUtils
  1387.